Data visualization with ggplot2

# Data visualization with <code>ggplot2</code>
### AECN 396/896-002

---

.remark-slide-content.hljs-github h1 {
  margin-top: 5px;  
  margin-bottom: 25px;  
}

.remark-slide-content.hljs-github {
  padding-top: 10px;  
  padding-left: 30px;  
  padding-right: 30px;  
}

.panel-tabs {
  
  color: #841F27;
  margin-top: 0px;  
  margin-bottom: 0px;  
  margin-left: 0px;  
  padding-bottom: 0px;  
}

.panel-tab {
  margin-top: 0px;  
  margin-bottom: 0px;  
  margin-left: 3px;  
  margin-right: 3px;  
  padding-top: 0px;  
  padding-bottom: 0px;  
}

.panelset .panel-tabs .panel-tab {
  min-height: 40px;
}

.remark-slide th {
  border-bottom: 1px solid #ddd;
}

.remark-slide thead {
  border-bottom: 0px;
}

.gt_footnote {
  padding: 2px;  
}

.remark-slide table {
  border-collapse: collapse;
}

.remark-slide tbody {
  border-bottom: 2px solid #666;
}

.important {
  background-color: lightpink;
  border: 2px solid blue;
  font-weight: bold;
}

.remark-code {
  display: block;
  overflow-x: auto;
  padding: .5em;
  background: #ffe7e7;
}

.hljs-github .hljs {
  background: #f2f2fd;
}

.remark-inline-code {
  padding-top: 0px;
  padding-bottom: 0px;
  background-color: #e6e6e6;
}

.r.hljs.remark-code.remark-inline-code{
  font-size: 0.9em
}

.left-full {
  width: 80%;
  float: left;
}

.left-code {
  width: 38%;
  height: 92%;
  float: left;
}

.right-plot {
  width: 60%;
  float: right;
  padding-left: 1%;
}

.left6 {
  width: 60%;
  height: 92%;
  float: left;
}

.left5 {
  width: 49%;
  
  float: left;
}

.right5 {
  width: 49%;
  float: right;
  padding-left: 1%;
}

.right4 {
  width: 39%;
  float: right;
  padding-left: 1%;
}

.left3 {
  width: 29%;
  height: 92%;
  float: left;
}

.right7 {
  width: 69%;
  float: right;
  padding-left: 1%;
}

.left4 {
  width: 38%;
  float: left;
}

.right6 {
  width: 60%;
  float: right;
  padding-left: 1%;
}

ul li{
  margin: 7px;
}

ul, li{
  margin-left: 15px; 
  padding-left: 0px; 
}

ol li{
  margin: 7px;
}

ol, li{
  margin-left: 15px; 
  padding-left: 0px; 
}

</style>

.full-width {
    display: flex;
    width: 100%;
    flex: 1 1 auto;
}
</style>

.blockquote p {
  margin-top: 0px;
  margin-bottom: 5px;
}
.blockquote > h1:first-of-type {
  margin-top: 0px;
  margin-bottom: 5px;
}
.blockquote > h2:first-of-type {
  margin-top: 0px;
  margin-bottom: 5px;
}
.blockquote > h3:first-of-type {
  margin-top: 0px;
  margin-bottom: 5px;
}
.blockquote > h4:first-of-type {
  margin-top: 0px;
  margin-bottom: 5px;
}

.text-shadow {
  text-shadow: 0 0 4px #424242;
}
</style>

.scroll-box-8 {
  height:8em;
  overflow-y: scroll;
}
.scroll-box-10 {
  height:10em;
  overflow-y: scroll;
}
.scroll-box-12 {
  height:12em;
  overflow-y: scroll;
}
.scroll-box-14 {
  height:14em;
  overflow-y: scroll;
}
.scroll-box-16 {
  height:16em;
  overflow-y: scroll;
}
.scroll-box-18 {
  height:18em;
  overflow-y: scroll;
}
.scroll-box-20 {
  height:20em;
  overflow-y: scroll;
}
.scroll-box-24 {
  height:24em;
  overflow-y: scroll;
}
.scroll-box-30 {
  height:30em;
  overflow-y: scroll;
}
.scroll-output {
  height: 90%;
  overflow-y: scroll;
}

</style>

# Before you start

## Learning objectives

The objectives of this chapter is to learn how to use the `ggplot2` package to create figures for effective communication

## Table of contents

1. [`ggplot2` basics](#ggplot2-basics)
2. [Different types of figures](#dif-geoms)
3. [Placing more information in one figure](#more-info)
4. [Faceted figures](#faceting)
5. [Other supplementary `geom_*()`](#other-geoms)

<br>

<span style="color:red"> Tips: </span>hitting letter "o" key will give you a panel view of the slides

---

# `ggplot2` package

Install the package if you have not.

```r
install.packages("ggplot2")
```

When you load the `tidyverse` package, it automatically load it.

```r
#--- load ggplot2 along with others in the tidyverse package ---#
library(tidyverse)

#--- or ---#
*library(ggplot2)
```

]

---

# The datasets we use

.panel[.panel-name[Instruction]
Go [here](https://www.dropbox.com/sh/63rlp4ydmyjm1ui/AACYSeN0f_WAgKPQKzgpGVe0a?dl=0) and download **county_yield.rds** and then read the file onto R:
  ]

```r
county_yield <- readRDS("county_yield.rds") %>%
  dplyr::select(soy_yield, corn_yield, year, county_code, state_name, d0_5_9, d1_5_9, d2_5_9, d3_5_9, d4_5_9) %>%
  filter(state_name %in% c("Nebraska", "Kansas", "Colorado"))
```
  ]

```
##       soy_yield corn_yield year county_code state_name d0_5_9 d1_5_9
##    1:        NA         NA 2018         053     Kansas 0.8980 3.8186
##    2:        NA         NA 2017         053     Kansas 3.9994 7.0006
##    3:        NA         NA 2016         053     Kansas 0.5724 0.0996
##    4:        NA         NA 2015         053     Kansas 4.4283 1.6177
##    5:        NA         NA 2014         053     Kansas 4.7032 9.9327
##   ---                                                               
## 2960:        53        181 2004         073   Nebraska 0.0000 3.2915
## 2961:        57        195 2003         073   Nebraska 0.0000 7.7427
## 2962:        51        170 2002         073   Nebraska 0.0000 7.0000
## 2963:        56        195 2001         073   Nebraska 5.7915 0.0000
## 2964:        54        147 2000         073   Nebraska 0.0000 4.7386
##        d2_5_9 d3_5_9 d4_5_9
##    1: 13.5279 0.0000      0
##    2:  0.0000 0.0000      0
##    3:  0.0000 0.0000      0
##    4:  0.0000 0.0000      0
##    5:  3.5824 4.7817      0
##   ---                      
## 2960: 19.7085 0.0000      0
## 2961: 11.8459 3.4114      0
## 2962:  1.2978 4.7022      9
## 2963:  0.0000 0.0000      0
## 2964: 17.6887 0.5727      0
```

]

.panel[.panel-name[Variable Definitions]
+ `soy_yield`: soybean yield (bu/acre)
+ `corn_yield`: corn yield (bu/acre)
+ `d0_5_9`: ratio of weeks under drought severity of 0 from May to September
+ `d1_5_9`: ~ drought severity of 1 from May to September   
+ `d2_5_9`: ~ drought severity of 2 from May to September   
+ `d3_5_9`: ~ drought severity of 3 from May to September   
+ `d4_5_9`: ~ drought severity of 4 from May to September   
  ]
]

---

# `ggplot2` basics

---

```r
*county_yield
```
]
 
.panel2-taste-auto[